home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / xeno / bbbbscd.lha / BBBBScd / System / s / Contents.rexx < prev   
OS/2 REXX Batch file  |  1995-03-08  |  984b  |  34 lines
  1. /*          $VER: Contents.rexx 5.9 (12.6.92)
  2. copyright 1990-93 Richard Lee Stockton  FREELY DISTRIBUTABLE
  3.  
  4.      Required in C: directory   arc dms lha unarj unzip zoo
  5. */
  6.  
  7. PARSE ARG argname emptyflag .
  8.  
  9. IF emptyflag~=1 THEN CALL DELETE('RAM:CONTENTS')
  10. endtest=UPPER(RIGHT(argname,4))
  11. arcomm=''
  12. IF endtest='.ARC' THEN arcomm='c:arc'
  13. IF endtest='.ZOO' THEN arcomm='c:zoo'
  14. IF arcomm~=''     THEN arcomm=arcomm 'v' argname
  15. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj l' argname
  16. ELSE IF endtest='.DMS' THEN arcomm='c:dms VIEW' argname
  17. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip -v' argname
  18. ELSE IF endtest='.LHA' | endtest='.LZH' | endtest='.RUN' THEN
  19.   arcomm='c:lha -N v' argname
  20. arcomm='CD RAM:' || '0A'x || arcomm
  21. IF emptyflag~=1 THEN
  22.   DO
  23.     CALL CLOSE(STDOUT)
  24.     CALL OPEN(STDOUT,'RAM:CONTENTS','W')
  25.   END
  26. ADDRESS COMMAND arcomm
  27. IF emptyflag~=1 THEN
  28.   DO
  29.     CALL CLOSE(STDOUT)
  30.     IF WORD(STATEF('RAM:CONTENTS'),2)=0 THEN CALL Contents.rexx(argname 1)
  31.   END
  32.  
  33. /* Contents.rexx */
  34.